home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 September / CHIP Eylül 1998.iso / demolar / lokman / DISK1 / _SETUP.2 / Group1 / Tarihdll.dll / 0 / RCDATA / TVEREBRFORM / TVEREBRFORM.txt
Text File  |  1998-07-24  |  5KB  |  213 lines
  1. object VerebrForm: TVerebrForm
  2.   Left = 2
  3.   Top = 49
  4.   ActiveControl = EditARA
  5.   BorderStyle = bsDialog
  6.   Caption = 'Veresiye Sat∩┐╜∩┐╜lar'
  7.   ClientHeight = 356
  8.   ClientWidth = 630
  9.   Color = 8421440
  10.   Font.Color = clBlack
  11.   Font.Height = -11
  12.   Font.Name = 'Arial'
  13.   Font.Style = [fsBold]
  14.   OnClose = FormClose
  15.   OnCreate = FormCreate
  16.   PixelsPerInch = 96
  17.   TextHeight = 14
  18.   object Label1: TLabel
  19.     Left = 3
  20.     Top = 325
  21.     Width = 95
  22.     Height = 14
  23.     Caption = 'Aranan Cari Kodu'
  24.     Font.Color = clWhite
  25.     Font.Height = -11
  26.     Font.Name = 'Arial'
  27.     Font.Style = [fsBold]
  28.     ParentFont = False
  29.   end
  30.   object DBGrid1: TDBGrid
  31.     Left = 0
  32.     Top = 0
  33.     Width = 630
  34.     Height = 305
  35.     Align = alTop
  36.     Color = clSilver
  37.     DataSource = DataSource1
  38.     Font.Color = clBlack
  39.     Font.Height = -11
  40.     Font.Name = 'Arial'
  41.     Font.Style = [fsBold]
  42.     ParentFont = False
  43.     TabOrder = 0
  44.     TitleFont.Color = clRed
  45.     TitleFont.Height = -11
  46.     TitleFont.Name = 'Arial'
  47.     TitleFont.Style = [fsBold]
  48.     OnKeyPress = DBGrid1KeyPress
  49.   end
  50.   object EditARA: TEdit
  51.     Left = 102
  52.     Top = 320
  53.     Width = 227
  54.     Height = 22
  55.     TabOrder = 1
  56.     OnKeyPress = EditARAKeyPress
  57.   end
  58.   object BitBtnKpt: TBitBtn
  59.     Left = 510
  60.     Top = 320
  61.     Width = 89
  62.     Height = 27
  63.     Font.Color = clNavy
  64.     Font.Height = -12
  65.     Font.Name = 'Arial Tur'
  66.     Font.Style = [fsBold]
  67.     ParentFont = False
  68.     TabOrder = 2
  69.     Kind = bkCancel
  70.     Spacing = 1
  71.   end
  72.   object BitBtn1: TBitBtn
  73.     Left = 366
  74.     Top = 320
  75.     Width = 89
  76.     Height = 25
  77.     Caption = '&Se∩┐╜'
  78.     Font.Color = clNavy
  79.     Font.Height = -12
  80.     Font.Name = 'Arial'
  81.     Font.Style = [fsBold]
  82.     ModalResult = 1
  83.     ParentFont = False
  84.     TabOrder = 3
  85.     OnClick = BitBtn1Click
  86.     Glyph.Data = {
  87.       78010000424D7801000000000000760000002800000020000000100000000100
  88.       04000000000000000000120B0000120B00000000000000000000000000000000
  89.       800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  90.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333300000000
  91.       0000333377777777777733330FFFFFFFFFF033337F3FFF3F3FF733330F000F0F
  92.       00F033337F777373773733330FFFFFFFFFF033337F3FF3FF3FF733330F00F00F
  93.       00F033337F773773773733330FFFFFFFFFF033337FF3333FF3F7333300FFFF00
  94.       F0F03333773FF377F7373330FB00F0F0FFF0333733773737F3F7330FB0BF0FB0
  95.       F0F0337337337337373730FBFBF0FB0FFFF037F333373373333730BFBF0FB0FF
  96.       FFF037F3337337333FF700FBFBFB0FFF000077F333337FF37777E0BFBFB000FF
  97.       0FF077FF3337773F7F37EE0BFB0BFB0F0F03777FF3733F737F73EEE0BFBF00FF
  98.       00337777FFFF77FF7733EEEE00000000033377777777777773330000}
  99.     NumGlyphs = 2
  100.   end
  101.   object Query1: TQuery
  102.     DatabaseName = 'ECZ'
  103.     SQL.Strings = (
  104.       'Select'
  105.       '  HAREKET.CARIKOD,'
  106.       '  HAREKET.HAREKNO,'
  107.       '  HAREKET.ALSATNO,'
  108.       '  HAREKET.ALSAT,'
  109.       '  HAREKET.TUR,'
  110.       '  HAREKET.TARIH,'
  111.       '  HAREKET.VADE,'
  112.       '  HAREKET.ALACAK,'
  113.       '  HAREKET.BORC,'
  114.       '  HAREKET.NIHAI,'
  115.       '  HAREKET.SONTARIH,'
  116.       '  HAREKET.BILGI'
  117.       'FROM HAREKET'
  118.       'WHERE (TUR='#39'M'#39')  AND'
  119.       '(ALSAT='#39'S'#39')  AND'
  120.       '(ALSATNO IS NOT NULL)'
  121.       'ORDER BY CARIKOD')
  122.     Left = 8
  123.     Top = 16
  124.     object Query1CARIKOD: TStringField
  125.       DisplayLabel = 'CAR∩┐╜ ADI'
  126.       DisplayWidth = 17
  127.       FieldName = 'CARIKOD'
  128.       OnGetText = Query1CARIKODGetText
  129.       Size = 11
  130.     end
  131.     object Query1ALSATNO: TFloatField
  132.       DisplayLabel = 'Sat.No'
  133.       DisplayWidth = 6
  134.       FieldName = 'ALSATNO'
  135.     end
  136.     object Query1ALSAT: TStringField
  137.       FieldName = 'ALSAT'
  138.       Visible = False
  139.       Size = 1
  140.     end
  141.     object Query1TUR: TStringField
  142.       FieldName = 'TUR'
  143.       Visible = False
  144.       Size = 1
  145.     end
  146.     object Query1TARIH: TDateField
  147.       DisplayLabel = 'TAR∩┐╜H'
  148.       DisplayWidth = 8
  149.       FieldName = 'TARIH'
  150.       DisplayFormat = 'dd.mm.yy'
  151.     end
  152.     object Query1VADE: TDateField
  153.       DisplayWidth = 8
  154.       FieldName = 'VADE'
  155.       DisplayFormat = 'dd.mm.yy'
  156.     end
  157.     object Query1BORC: TCurrencyField
  158.       DisplayLabel = 'BOR∩┐╜'
  159.       DisplayWidth = 11
  160.       FieldName = 'BORC'
  161.       DisplayFormat = '#,#'
  162.     end
  163.     object Query1NIHAI: TSmallintField
  164.       DisplayLabel = 'Son Durum'
  165.       DisplayWidth = 8
  166.       FieldName = 'NIHAI'
  167.       OnGetText = Query1NIHAIGetText
  168.     end
  169.     object Query1SONTARIH: TDateField
  170.       DisplayLabel = 'Son D.Trh'
  171.       DisplayWidth = 8
  172.       FieldName = 'SONTARIH'
  173.       DisplayFormat = 'dd.mm.yy'
  174.     end
  175.     object Query1BILGI: TStringField
  176.       DisplayLabel = 'B∩┐╜LG∩┐╜'
  177.       FieldName = 'BILGI'
  178.       Size = 36
  179.     end
  180.     object Query1HAREKNO: TFloatField
  181.       DisplayLabel = 'Hrk.No'
  182.       DisplayWidth = 6
  183.       FieldName = 'HAREKNO'
  184.     end
  185.     object Query1ALACAK: TCurrencyField
  186.       FieldName = 'ALACAK'
  187.     end
  188.   end
  189.   object DataSource1: TDataSource
  190.     DataSet = Query1
  191.     Left = 40
  192.     Top = 16
  193.   end
  194.   object HstAl: TTable
  195.     DatabaseName = 'ECZ'
  196.     ReadOnly = True
  197.     TableName = 'HASTA.DB'
  198.     Left = 256
  199.     Top = 144
  200.     object HstAlHASTANO: TIntegerField
  201.       FieldName = 'HASTANO'
  202.     end
  203.     object HstAlHASTADI: TStringField
  204.       FieldName = 'HASTADI'
  205.       Size = 18
  206.     end
  207.     object HstAlHASTASOYAD: TStringField
  208.       FieldName = 'HASTASOYAD'
  209.       Size = 18
  210.     end
  211.   end
  212. end
  213.